88 
. 
S38388328388838 
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*+F ILE**1D**SRTSPC ; 
SSSSSSSS_RRRRRRRR -ITTTTTTTIT —« SSSSSSSS_ PPPPPPPP ceceecce 
SSSSSSSS_RRRRRRRR_  TTTTITTTTT —_SSSSSSSS_PPPPPPPP cececcce 

$$ RR RR TT $$ PP PP CC 
$§ RR RR TT SS PP PP CC 
$§ RE RR TT $§ PP PP CC 
$$ PR PR TT $ PP PP CC 
SSSSSS__-RRRRRRRR TT SSSSSS_-PPPPPPPP = CC 
SSSSSS__RRRRRRRR TT SSSSSS__-PPPPPPPP = CC 
SS RR RR a SS PP cC 
SS RR RR a SS PP cC 
SS RR RR TT SS PP C ver 
SS RR RR TT SS PP eC pon 
SSSSSSSS_ RR RR TT SSSSSSSS_ PP cececcce rons 
SSSSSSSS_ RR RR TT SSSSSSSS_ PP ceccecce ore 
RRRRRRRR = EEEEEEEEEE —gQd.ada0 
RRRRRRRR__ -EEEEEEEEEE — 00000 
RR RR EE aq 
FR RR EE aq aa 
RR RR EE aq aa 
PR RR EE aa ad 
RRRRRRRR = EEEEEEEE §=— 0 aa 
RRRRRRRR = EEEEEEEE §©=—Q0 
RR RR EE ad aq ad 
RR RR EE aa ad ad 
RR RR OEE Q Q 
RR RR EE aa aa 
eR RR EEEEEEEEEE aod a0 
KH RR EEEEEEEEEE 0000 a0 
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; File: SRTSPC.REQ IDENT = ‘V04-000" ! File: SRTSPC.REQ Edit: PDG3028 
i 
i eeeeeeeeereeereeereereeeeeeeeeeteeeeeeereeeeteeeeeeeeeeeererereereeeeereeet 


‘* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
:* DIGITAL EQUIPMENT CORPORATION, © MAYNARD. MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is TUN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
ie TRANSFERRED. 

‘@ 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


Hh CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
® 
w 
® 
® 
* 
® 
* 
® 
& 
* 
* 


RRR R EERE AAA EE AREA EERE 


* 
+ 


FACILITY: VAX=11 SORT/MERGE, PDP=-11 SORT/MERGE 
ABSTRACT: 


This require file is for data structures returned from specification 
file processing. 
This file is used as a library source. 


ENVIRONMENT: VAX/VMS user mode 
AUTHOR: V. Bennison, CREATION DATE: 03-May-1982 
MODIFIED BY: 


31-Aug-1982 PDG 

Add definitions that are required for SRTSPC.BLI. 

Rework TOT table to give precedence to AND/OR. PDG 13-Dec-1982 
Add wF mie CFT indices of work file names. PDG 26-Dec-1982 


DT PDG 5-Jan 
19 Removed Pr/ST_A ADR: cpeges WRK_SI i. BS S_DECH. PDG 26-Jan-1983 
Fis FDOT =SCALE and 
‘x computat on ay Sack ked d in KFT. NTS. one? 11-Feb-1983 
e unreferenced fields. PDG T 
re og round Bliss bu with. cA, INkAge ty 06 12-May-1983 
5 Define KFT pve ~5}2- RA SS oy -Jul-198 


Put WH FAIL— 
$8 Yordvalion = He wy in CON_SYM_ aug 39 PDG 1-Aug-1983 
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! 103-028 Make sharing of code easier to maintain. PDG 31-Jan-1984 
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i FIELD DEFINITION TABLE (FDT) 


LITERAL 
FOT_MAX = 255, ‘maximum number of entries in FDT 
FDT_UNIT = 6; ! Size in bytes. rag ior even for bliss16 
' because 16 bit field 
STRUCTURE 
T_TABC 0,8,.P.S$,E; BS J = 
BS*FOT UNIT 3 
( FDOT_TAB + O*FDT_UNIT + B )<P,S,E> 
MACRO 
FOT_TYPE = 0, 0, e. 0 x, ! Data type 
FOT_SCALE = 1, B° 1%, ! Scale factor 
FOT_FLD_POS = 2, 0, 16, 0 %, ! Position of field 
FOT_FLO_SIZ = 4, 0, 16, O 2; ! Size of field 
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; TEST DEFINITION TABLE (TDT) 


TOT_MAX = 255, !maximum number of entries in TDT 
TOT_UNIT = 4; ! Size in bytes 


STRUCTURE 
TOT_ 


TABC 0,8,P,S,£; BS ] = 
C BS*TbT UNIT 3 
( TOT_TAB + O*TDT_UNIT + B )<P,S,E>; 
MACRO 
TDT_TRUE = 8. S. ie O Be ! Set to simply return TRUE 
TOT_C = 0,1, 3.02%, : The comparison flags 
TOT_EQL = 8. 1, 1, 0%, : True if ‘Equal to’ succeeds 
TDTLLSS = Q, ¢ 1, 0%, : True if ‘Less than’ succeeds 
GTR = 8° - 1,02, ! True if "Greater than" succeeds 
TOT_CONSTANT= 0, 4, 1, 0 %, ! True iff FLD_TWO is to CFT 
-FLD_ONE = 1, 0, 8, O 2%, ! Index in FDT of ist field 
TOT_FLD TWO = ¢° 0, 8, 0%, ! Index in FDT (or CFT) of 2nd field 
GoTo . 0, 8 0 2; ! TOT index adjustment 


! This structure should only be referenced by the routines that builds it, 
! and the routine SORSS$TDT! 


H This table is used as follows: 

: Set IX to the index of the test description to test 

‘Loop: If TDT_TRUE is clear then return TRU 

: If the comparison between FLD_ONE and FLD_TWO is true 

me (according to the EQL/LSS7GTR bits) 

: en 

: ‘ if TOT_GOTO is zero then return false else add TDT_GOTO to IX 
' 


else 
add 1 to Ix 
goto Loop 


+ 
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KFT UNIT = 8; 
STRUCTURE 
KFT_TABC 0,8,P,$,€; 8S ] = 
C BSeKFT UNIT 3 
( KFT_TAB + 0 


RO 
KFT_NDE_POS = 0, 0, 16, 0 %, 


KFT_CONTINUE = 3, 0, 1, 0 %, 
KFT-CONSTANT = 3, 1, 1, 0 %, 
KFT_-CONT CDX = 3, 2, 1, 02%, 
“CONDR = 3, 3, 1, 0%, 
KFT BUILD = 3, 4, 1, 0%, 
KE TDESCEND = 3.5.1.0, 
KFT_DAT = oO 6, 1, 0 | 
KFT_FDT_IDX = 4, 0, 8, 0 %, 
KFT_TDT_IDX = 5, 0, 8, 0 %, 
KFT_NDE_SIZ = 6, 0, 16, 0 %; 


! Size in b 
i because o 
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KEY/DATA FIELD TABLE (KFT) 


‘maximum number of entries in KFT 
es, must be even ‘or bliss16 
16 bit field 


Starting position in node 


Continue = 1 

True iff FOT_IDX is to CFT 
Continued condition = 1 
genes tenes field = 1 
Build the key = 1 
Asc/desc, descend = 1 

Key or data, data = 1 


Index in FDOT (or CFT) 
TDT index for forces 


Size (bytes) in internal node 
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i RECORD DEFINITION TABLE (RDT) 


LITERAL 
RDT_MAX = 64, ‘maximum number of entries in RDT 
RDT_UNIT = 6; ! Size in bytes 
STRUCTURE 
RDT_TABC 0,8,P,S,E; 8S ] = 
BS*ROT UNIT 3 
RDT_TAB + O*RDT_UNIT + B )<P,S,E> 


MACRO 
ROT INCLUDE = 0,0, 1,02, ! Include/omit, Include = 1 
RDT_CONDX = 0, 1, 1, 0%, ! Conditional = 
RDT_TOT_IDX = 1, 0, 8, 0 %, ! Index into TDT 
RDT_KCT_ADR = 2, 0, 16, 0 %, ! For Sort=-11 only 
RDT_KFT_IDX = 4, 0, 8, 0 %; ! Index into KFT 


The RDT table is scanned seqyent tatty. until either an Uncqnett tonal entry is 
found, or until a condition (via RDT_TDT_IDX) passes. This matched entry 

describes whether to omit or include” then record (RDT_IN NCLUDE) If included, 
then RDT_KFT_IDX is used to index the KFT table, for record reformatting. 
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255 maximum number of entries in CFT 
= 2+4BPADDR/8; "Size in bytes 


0,0, 8, 0%, ! Length of constant 
; 0. XBPADDR, 0 %; ! Address of constant 


3 
7 
=A 
P*] 
“ou 
™m 


Page 
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IF XBLISS(BLISS32) 
XTHEN 


LIBRARY ‘SYS$LIBRARY: STARLET"; 
LIBRARY ‘SRC$:SORLIB'; 


LIBRARY 'S11V3SRC:SMCOM'; 


ZELSE 
2FI 


Define the Linkage to the common routines 


LITERAL 
LB_REG = 4; 
LINKAGE 
CA_LINKAGE = 
%BLISS32( CALL:GLOBAL(CA=COM_REG_CTX) ) ! MUST BE SAME AS CAL_CTXREG! 
YBLISS16( JSR ), 
CA_LINKAGE L8 = Same as CA_LINKAGE Ae an extra register 
XBLISS32( CALL :GLOBAL (CAS COM_REG_CTX> LBs LB_REG 
%BLISS16( JSR :GLOBAL( B=LB- REG) a 
CA_LINK_SEGMENT = 
XBLTSS16( JSR ) 
MBLISS32( JSB ¢ 
REGISTER=6 
REGISTER=COM_REG_SRC2): 
GLOBAL (CA=COM_REG CTX) 
PRESERVE (COM_REG_SRC2) 
NOTUSED(7,8,9) 
NOPRESERVE (6,1,2,3,4,5)); 


A macro to declare/get the address of the common area 
MACRO 
tA. AREA 
Bir ~#81 1358115532) 


EXTERNAL REGISTER 
RIF ZNULL(X) ein CA ZELSE X 2FI 
= COM_REG_CTX REF BLOCKCCTX_K 
FIELD(CTX_FIECDS); 
ZELSE 
ZIF NOT ZNULL(X) 


ZTHEN 


LOCAL 

REF BLOCK C, ZUPVAL] FIELD (COM_FIELDS); 
nee xauote’ GET. IMPAREA_( X ); 

SFI 2; 


: Specification file error messages 


CDd0 
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'LITERAL 
: SRTIWA = SORS_SRTIWA, ‘insufficient work area 
; SPCOVR = SORS_SPCOVR, ‘warning: overriden specification 
; SPCMIS = SORS$_SPCMIS, ‘warning: ynvat ie merge specification 
: SPCSIS = SORS$_SPCSIS, ‘warning: invalid sort specification 
: SPCIVP = SORS$_SPCIVP, ‘invalid sort process 
' SPCIVS = SORS$_SPCIVS, ‘invalid specification 
; SPCIVC = SORS_SPCIVC, ‘invalid collating sequence specification 
: SPCIVF = SORS_SPCIVF, ‘invalid field  Seeers cation 
: SPCIVD = SORS$_SPCIVD, ‘invalid data type 
' SPCIVX = SORS_SPCIVX, ‘invalid condit on specification 
' SPCIVK = SORS$S_SPCIVK, ‘invalid key or data specification 
: SPCIVI = SORS_SPCIVI; ‘invalid include or omit specification 


A macro to expand fields 


IF BOLESS <0 15520? 
ZTHEN MACRO _(X,Y) 
MACRO 


ZQUOTE XEXPAND ZF 


= IELDEXPAND(X) 2%; 
—(X,¥) = ZQUOTE XEXPAND XFIEL ) 


DE 
DEXPAND(Y) %; 


Sort/Merge process information 


CA_PROCESS = XEXPAND (com. SORT TYPE. COM_PROCESS_) % 
CAPROCESS_OVR = XEXPAND ~(COM~OVR_PROC COM"PROC OVR_) &, 
CATVAR_MERGE = = XEXPAND ~(COMMERGE. COM"MERGE_) : 
; Collating information 
CA_TIE_BREAK § = XEXPAND _(COM_TIE_BREAK, COM_TIE_BREAK_) % 
CA~ST_ADR = XEXPAND ~(COM~COLCATE, COM"CS_TAB_ADR_) &, 
CA~ST~S12Z = XEXPAND ~(COM~ST_SIZ, COM“CS"TAB-SIZ~) %. 
CA~BS~DECM = XEXPAND ~(COM~BS~DECM, COM~BS~DECA_) ty 
PA = XEXPAND ~(COM~PAD, COMTPAD CHAR.) i, 
Keys and stable information 
CA_KEY_OVR = ZEXPAND _(COM_OVR_KEY COM_KEY_OVR_) %, 
CA~CHKSEQ = XEXPAND ~(COM~SEQ~CHECK, COM"CH_SEQ J % 
CA-CHKSEQ_OVR = XEXPAND ~(COM~SEQ~CHECK, COM"CHSEQ Over 5S x, 
CA~STABLE~ = ZEXPAND ~(COM~STABLE, COM“STABLE ) &, 
CA~ STABLE _OVR = ZEXPAND ~(COMTSTABLE. COM~STBL_OUR_) %, 
CA-COLSEQ-OVR = XEXPAND ~(COM~OVR_COLSEQ, COMCSEQ~OVR-) %, 
' Record reformatting, and other tables 
CA_RDT_ADR = XEXPAND _(COM_RDT_ADR, COM_RDT_ADR_) %, 
CA-RDT~S1Z = XEXPAND ~(COM~RDT~SIZ. COM“RDT“SIZ~) %, 
CA“KFT~ADR = XEXPAND ~(COM-KFT-ADR, COMKFT“ADR™) %, 
CA-KFT~SIZ = XEXPAND ~(COM“KFT~SIZ, COMKFT"SI2Z~) %, 
CA~CFT~ADR = XEXPAND ~(COM~CFT~ADR, COMCFT“ADR-) 2. 
CA-CFT~SIZ = XEXPAND ~(COMCFT“SIZ, COM“CFT“SIZ~) %. 
CA~FDT~ADR = XEXPAND ~(COM~FDT~ADR, COMTFDTZADR) %, 
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CA_FDT_S1Z = ZEXPAND _(COM_FDT_SIZ, COM_FDT_SIZ_) %, 
CA-TDT-ADR = XEXPAND ~(COM-TDT-ADR, COM“TDT“ADR-) %, 
CA_TOT_S1Z = ZEXPAND _(COM_TDT_SIZ, COM_TOT_SIZ_) %, 
ZIF ZBLISS(BLISS16) XTHEN 
CA_STAT_ADR = ZEXPAND ~{0. COM_STAT_ADR_) %, ! user error buffer (address) 
CA_USR_ORN = XEXPAND —(0, COM_USR_QRN_Y %, ! address of user-written warning routine 
CALIST_SPC_ERR = ZXEXPAND ~{8. COM_IST_SPC_ERR_) %, ! first spec fatal error code 
ert CALIST_SPC_LIN = XEXPAND _(0, COM_IST_SPC_LIN_) %, ! first spec error Line number 
CA_CONST_AREA = ZEXPAND _(COM_CONST_AREA, COM_CONST_AREA_) %, ! constant area (address) 
CA_WRK_ADR = XEXPAND ~(COM_WRK_ADR, COM_WRK_ADR_) %, ! address of work area 
CA_WRK_END = ZEXPAND _(COM_WRK_END COM_WRK_END_) % ! address past end of work area 
CA-WF_NAMES = XEXPAND ~(COM~WF_RAMES, COMWF_NAMES_) &; i counted list of indices into CFT of work file name 


UNDECLARE XQUOTE _; & 
A macro to expand fields 

ZIF XBLISS(BLISS32) 
ZTHEN MACRO _(X,Y 
XELSE MACRO ~(X,Y) 


~< 
rer 
* 


' Values for datatypes 
: A negative value indicates that the datatype is not supported 


LITERAL 


K = _(DSCSK_DTYPE_T, C$$), ! Character (text) 
DT_AF = _(-1, ASS), ! Ascii Floating 
DT_AZ = _(-1, 72$$), ! Ascii Zoned 
DT_DB = _(-1 L$$), ! Dibol 
DT-F = = -_“(DSCS$K_DTYPE_F, F$$), | F-floating 
DT_D = _(DSCSK_DTYPE_D, F$$), ! D-floating 
DT-G = ~(DSC$KIDTYPE-G, -1),. | G=floating 
DT_H = _(DSCSK_DTYPE_H, -1) ! H-floating 
DT-P = =_ = (DSCS$K_DTYPE-P, P$$5, | Packed decimal 
DT_B = _(DSCSK_DTYPE_B, B$$), ! Signed binary 
DT-U —s_- =_- = (DSC$KDTYPE~BU, US$), | Unsigned binary 
DT_NU = _(DSCSK_DTYPE_NU, D$$), ! Decimal unsigned 
DT_NL = _(DSCSK_DTYPE_NL 1$$), ! Decimal leading separate 
DT“NLO = “(DSCSK“DTYPE-NLO, KS$). | Decimal Leading overpunch 
DT_NR = _(DSCSK_DTYPE_NR J$$), ! Decimal trailing separate 
DT_NRO = = (DSCSK~DTYPE_NRO, D$$), ! Decimal trailing overpunch 
DT_NZ = _(DSCSK_DTYPE_NZ, -1); ! Zoned decimal 
UNDECLARE %QUOTE _; 


MACRO 

Macro to determine the length in bytes, given a KFT pointer 

Note that this is not needed after the spec file parser is called, 
since KFT_NDE_SIZ_ gives the same information. 


FT_UNITS_(KFT_PTR) = 
BEGIN 
LOCAL 


' 
i 
i 
i 
K 
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FDT_IX; 
FOT.IX = RET -PTRCO 
4 <K 


FT_PTRLOTKFT “CON 
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KFT _FDT_IDXJ; 
STANT)~ 


HEN 
erCFTC.FDT_IX, CFT_CONLENJ 


RIF XBLISS(BLISS32) XTHEN 
IF .FOTC.FDT_IX, FOT_TYPE) EQL DT_P 


-FDTC.FDT_IX, 
aL se 
-FDTC.FDT_IX, 
END %; 

ZIF ZBLISS(BLISS32) 

XTHEN 

Character codes 

LITERAL 
C_LBRACK = %x'5B', § 
C_RBRACK = Zx°5D°, $ 
C_SLASH = X£xX'2F', ! 
C_EXCLAM = £x'21', ! 
C_PERCENT S En*2s" « ' 
C_COMMA = Zx'2Cc°, ‘ 
C_NULL = %x'00"', : 
C_QUOTE = 2x‘22', : 
C_L_PAREN = 2xX°28', : 
C_R_PAREN = &X‘'29", ! 
C- COLON = ZxX'SA‘', ' 
C_EQUAL = Zx'3pD", : 
C_LESS = Zx°3SC°, : 
C_GREATER = &X‘SE', : 
C_DASH = £x'2d", ‘ 
C_SPACE = 2x'20', : 
C_TAB = £x'09', ! 
C_CR = £x'OD', : 
CLF = &xX‘OA'; : 

FI 

LITERAL 
C_OCcT = 2x"6F* ! 
C_DEC = 2x'64', ; 
C_HEX = 2x'78' : 


FDT_FLD_SIZIJ/2 + 1 ! Length in bytes 


FDT_FLD_S1Z] 


Character 
Character 
Character 
Character 
Character 
Character °', 
Character 
Character 
Character 
Character 
Character 
Character ‘= 
Character |<" 
Character ‘'> 

Character ‘= 

Character 
Character HT 
Character CR 
Character LF 


! Lower case ‘'o’’, for octal number base 
' Lower case ‘‘d’’, for decimal number bas 


' Lower case ‘'x'’, for hexadecimal lh “bees 
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pe ZBLISS(BLISS16) ZTHEN 
KEY COMPARISON TABLE (KCT) 
This table is used a Sort-11 for fast access to the 
e 


key descriptions of keys that need to be compared. 


i 
i 
' 
' 
' 
' See eee eee eee eenan=a See ee Se 22S eee eeeenenene See eeeeeeeeeneenaneneon 
L 


ITERAL 
Ket MAX = 64, !maximum number of entries in KCT 
KCT_UNIT = 8: 'size in bytes 
STRUCTURE 
KCT_TABC 0,8,P,S,E; BS ] = 
BS*k(T UNIT 4 
( KCT_TAB + O#KCT_UNIT + B )<P,S,E>; 
MACRO 
KCT_CMP_ADR 1 ‘address of 4 ry mes routine 
CT_KEY_POS_ 1 istarting position of key field 
1 ‘Length of key field 


‘continue word 
‘descend = 1, ascend = 0 
‘data type, Lie te reinitialize 


nnnnnu 
esse ee 
o-OoCo°o°o 
eee se 
COO SOOO 
ees ese 88 
oOooo°o°o 
PEFL HL VL FL HL 
een ee ee 


NOOSMO 


KCT~ NUE_ 
KCT-DESCEND_ 
KCT“TYPE_ 


2FI 
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WHILE _FAIL 


“This macro produces code that advances a table pointer i 
successive entries until the ontry is - cod tt ional, or the 

entry is conditional and passes the conditio 

The parameter to this macro (X) is the identification of the table. 
The table pointer must be of the form (xX) _P one a table must 
have the following fields: (X)_CONDX and th) Rete 


CRO 
WHILE _FAIL_(X) = 
BEGIN 


MACRO 
PTR = ZNAME(X,'_PTR') revere i, 

X— CONDX = ZNAME(X,*_CONDX') ZXQUOTE %, 
X-TDT_IDX = ZNAME(X,"-TDT_IDX") XQUOTE %; 
While we fail conditional tests 
WHILE 1 DO 

BEGIN 
LOCAL 
PASS; 
Unconditional tests are easy 
if NOT .X_PTRCO, X_CONDX] THEN EXITLOOP; 
We have a condition 
PASS = IF ZBLISS(BLISS32) XTHEN SORSSTDT ZELSE STOT ZFI ¢ 


' Length/address of record 
TOTC.X _PTRLO.X_ TDT_IDX],BASE_] ! Address of TOT tests 


IF .PASS GTRU 1 THEN RETURN .PASS; ! Unexpected result 
IF .PASS EQLU 1 THEN EXITLOOP; ! We passed the test! 
Advance to the next record definition 
X_PTR = X_PTRC1,BASE_); 
END; 

END 2; 


COI 
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' 
i Check that the fields are large enough 


MACRO 
§_CO.P.S,E] = 14S % 
MI(V,0-PS-E)C) = Zif V GTRU MINU(1*S=1,S_(ZREMAINING)) XTHEN 
£WARN(V,' is too Large’) XF1 %; 
M_(FDT_MAX, CA_FDT_SIZ, TDT_FLD_ONE, TDT_FLD_TWO, KFT_FDT_IDX) 
M-(TDT“MAX, CA-TDT“SIZ, KFT-TDT-IDX, RDT-TDT—IDXS 
M~(KFTIMAX, CATKFT-SIZ, RDT-KFT~IDXS 
M~(RDT-MAX, CA-RDT~SIZ. 0,078,097 
MI(CFTIMAX, CALCFT~SIZ, KFT_FOT_IDX) 


UNDECLARE ZQUOTE S_, XQUOTE 


i End of SRTSPC.REQ 


w¥k VAX/VMS V4.0 


